home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / listhelp.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  57 lines
  1. DEFINITION MODULE ListHelp;
  2.  
  3. (*==============================================================*
  4.  * Modul:               Modul zur Verwaltung der Abrufboxen     *
  5.  * Autor:               Dirk Steins, Jo G”ttker-Schnetmann      *
  6.  * erstellt am:         10.04.1992                              *
  7.  * letzte Žnderung am:  10.04.1992                              *
  8.  * Version:             1.0                                     *
  9.  * Interne Version:     V#0001                                  *
  10.  *==============================================================*
  11.  
  12.  *----------------------------------------------------------------------------
  13.  * Datum    Vers. Autor  Žnderung (Arbeitsbericht)                            
  14.  *----------------------------------------------------------------------------
  15.  *----------------------------------------------------------------------------
  16.  *)
  17.  
  18. (* Nach der endgltigen Umstellung k”nnen die Prozeduren SelectGroup und *)
  19. (* SelectName aus Cat endgltig verschwinden                             *)
  20.  
  21. FROM SYSTEM IMPORT ADDRESS;
  22.  
  23. TYPE groupSelectMode = (gsmReadBegin, gsmReadNew, gsmReadUnread, gsmReadLastPos, gsmReadDate, 
  24.                         gsmReadId, gsmWrite, gsmUser, gsmGroupCom, gsmModify, gsmOther,
  25.                         gsmChief);
  26.  
  27. (* Hilfsprozeduren, die bei den Listdialogen benutzt werden *)
  28.  
  29. PROCEDURE nextEntry ( l : ADDRESS) : ADDRESS;
  30.  
  31. PROCEDURE prevEntry ( l : ADDRESS) : ADDRESS;
  32.  
  33. PROCEDURE resetList (l : ADDRESS);
  34.  
  35. (* Die eigentlichen Nutzprozeduren *)
  36.  
  37. PROCEDURE SetLastGroup (REF name : ARRAY OF CHAR);
  38. (* Setzt den Gruppennamen, der beim n„chsten Aufruf in der 
  39.  * Gruppenbox angezeigt wird
  40.  *)
  41.  
  42. PROCEDURE SelectGroup (VAR gruppe : ARRAY OF CHAR; VAR Nr: CARDINAL;
  43.                            nG     : BOOLEAN; clearEdit: BOOLEAN;
  44.                            forSearch: BOOLEAN; mode: groupSelectMode):BOOLEAN;
  45.  
  46. PROCEDURE SelectName(VAR Name : ARRAY OF CHAR):BOOLEAN;
  47.  
  48. PROCEDURE NewNameEntry (name, info : ARRAY OF CHAR);
  49. (* Fgt einen Namen in die ADR.INF ein oder „ndert einen 
  50.  * vorhandenen. Speichert auch ab!
  51.  *)
  52.  
  53. PROCEDURE Init(gruppen, adr : ADDRESS);
  54. (* Objektb„ume fr die Gruppenauswahl- und die Adressenauswahlbox *)
  55.  
  56. END ListHelp.
  57.